home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Prog / M / LSP⁄C.cpt / c.c next >
Encoding:
Text File  |  1989-01-04  |  390 b   |  28 lines  |  [TEXT/KAHL]
  1. pascal void
  2. crfillptr(dst,dstlen,ch)
  3. register char    *dst;
  4. long            dstlen;
  5. short            ch;        /* pascal CHARs are two bytes */
  6. {
  7.     register char    *limit,_ch;
  8.     
  9.     _ch = ch;
  10.     limit = dst + dstlen;
  11.     while (dst < limit)
  12.         *dst++ = _ch;
  13. }
  14.  
  15. pascal void
  16. cfillptr(dst,dstlen,ch)
  17. char    *dst;
  18. long    dstlen;
  19. short    ch;
  20. {
  21.     char        *limit,_ch;
  22.     
  23.     _ch = ch;
  24.     
  25.     limit = dst + dstlen;
  26.     while (dst < limit)
  27.         *dst++ = _ch;
  28. }